home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 May / 64er_Magazin_93-05_1993_Markt__Technik_de_Side_B.d64 / zsl dl900.src (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  5KB  |  307 lines
  1. 90 poke56,8000/256:clr
  2. 100 sys36864
  3. 110 .opt oo
  4. 120 *=8000
  5. 220 tmp =2
  6. 230 setlfs =$ffba
  7. 240 setnam =$ffbd
  8. 250 open =$e1c1
  9. 260 close =$e1cc
  10. 270 chkin =$e11e
  11. 280 chkout =$e118
  12. 290 clrchn =$ffcc
  13. 300 chrout =$ffd2
  14. 310 load =$ffd5
  15. 320 get =$ffe4
  16. 360 clrscn =$e544
  17. 380 crscol =646
  18. 440 text =$41
  19. 460 alpctr =$92
  20. 470 bild =$9b
  21. 490 quality =$a7
  22. 500 style =$a8
  23. 530 fontlen =$b5
  24. 540 fget =$e124
  25. 690 jsr $ffe7
  26. 700 jsr colors
  27. 830 lda #<titel:ldy #>titel:jsr $ab1e
  28. 840 jsr lab0a9b
  29. 850 jsr lab08c9
  30. 990 jmp colors
  31. 1000 bufhome lda #<buf:ldy #>buf:sta tmp:sty tmp+1:rts
  32. 1010 hol ldy #0:lda (tmp),y:pha:inc tmp:bne noinc:inc tmp+1
  33. 1020 noinc pla:rts
  34. 1160 ;
  35. 1170 colors lda #15
  36. 1180 sta $d020
  37. 1200 sta $d021
  38. 1210 lda #11
  39. 1220 sta crscol
  40. 1230 jmp clrscn
  41. 1250 ;
  42. 1270 lab08c9 jsr testlen
  43. 1280 sta fontlen
  44. 1290 lab08cf jsr lab0916
  45. 1300 lab08d2 jsr get
  46. 1310 beq lab08d2
  47. 1320 cmp #13
  48. 1330 beq qde1
  49. 1340 cmp #20
  50. 1350 beq delete
  51. 1360 cmp #"_
  52. 1370 beq ei2
  53. 1380 jsr lab08f4
  54. 1390 jmp lab08cf
  55. 1400 ;
  56. 1410 de[136]e jsr ei3
  57. 1420 jmp lab08cf
  58. 1430 ;
  59. 1460 qde1 jmp de1
  60. 1480 ;
  61. 1490 lab08f4 ldx f[145]t[195]
  62. 1500 cpx #16
  63. 1510 bcs ei2
  64. 1520 sta f[145]t[170]1,x
  65. 1530 lda #"<
  66. 1540 sta font+2,x
  67. 1550 inc fontlen
  68. 1560 ei2 rts
  69. 1570 ;
  70. 1580 ei3 ldx fontlen
  71. 1590 beq ei1
  72. 1600 lda #32
  73. 1610 sta font+1,x
  74. 1620 lda #"<
  75. 1630 sta f[145]t,x
  76. 1640 dec f[145]t[195]
  77. 1650 ei1 rts
  78. 1660 ;
  79. 1670 lab0916 ldx #[179]f[145]t
  80. 1680 stx text
  81. 1690 ldx #[177]f[145]t
  82. 1700 stx text[170]1
  83. 1710 ldx #$a8
  84. 1720 stx bild
  85. 1730 ldx #6
  86. 1740 stx bild[170]1
  87. 1750 jmp strout
  88. 1770 ;
  89. 1780 test[195] ldx #0
  90. 1790 ei5 lda f[145]t[170]1,x
  91. 1800 cmp #"<
  92. 1810 beq ei4
  93. 1820 inx
  94. 1830 bne ei5
  95. 1850 ei4 txa
  96. 1860 st2 rts
  97. 1870 ;
  98. 1880 strout ldy #0
  99. 1890 st1 lda (text),y
  100. 1900 beq st2
  101. 1910 and #$bf
  102. 1920 sta (bild),y
  103. 1930 iny
  104. 1940 bne st1
  105. 1960 ;
  106. 1970 initdisk ldx #<run1:ldy #>run1:stx text:sty text+1
  107. 1972 ldx #<1824:ldy #>1824:stx bild:sty bild+1:jsr strout
  108. 1976 jsr testlen
  109. 1980 ldx #<(font+1)
  110. 1990 ldy #>(font+1)
  111. 2000 jsr setnam
  112. 2010 lda #3
  113. 2020 ldx #8
  114. 2030 ldy #0
  115. 2040 jsr setlfs
  116. 2050 jsr open
  117. 2060 ldx #3
  118. 2070 jsr chkin
  119. 2090 jsr bufhome:jsr fget:ldx 144:beq rein
  120. 2092 ldx #4:jmp $a437
  121. 2100 fillin lda 144:bne filled
  122. 2110 jsr fget
  123. 2115 rein ldy #0:sta (tmp),y:inc tmp:bne fillin:inc tmp+1:bne fillin
  124. 2120 filled jsr clrchn:lda #3:jmp close
  125. 2410 de1 jsr initdisk:jsr bufhome
  126. 2420 jsr initptr
  127. 2430 de2 jsr hol
  128. 2440 beq fertig
  129. 2450 pha
  130. 2460 jsr esc:lda #"&":jsr print:jsr nil
  131. 2470 pla
  132. 2480 jsr defchr
  133. 2490 jmp de2
  134. 2500 ;
  135. 2510 fertig jsr alfabet
  136. 2520 jsr clrchn
  137. 2530 lda #4:jmp close
  138. 2540 ;
  139. 2570 mal3 sta text
  140. 2580 asl
  141. 2590 clc
  142. 2600 adc text
  143. 2610 sta text
  144. 2620 inc text
  145. 2630 rts
  146. 2640 ;
  147. 2650 defchr jsr print
  148. 2680 jsr print
  149. 2690 jsr hol
  150. 2700 jsr print
  151. 2710 jsr hol
  152. 2720 jsr print
  153. 2730 jsr mal3
  154. 2760 loop jsr hol
  155. 2770 jsr print
  156. 2780 dec text
  157. 2790 bne loop
  158. 2800 rts
  159. 2810 ;
  160. 2820 initptr ldx #<run2:ldy #>run2:stx text:sty text+1
  161. 2822 ldx #<1904:ldy #>1904:stx bild:sty bild+1:jsr strout
  162. 2826 lda #0
  163. 2830 jsr setnam
  164. 2840 lda #4
  165. 2850 ldx #4
  166. 2860 ldy #1
  167. 2870 jsr setlfs
  168. 2880 jsr open:ldx #4:jsr chkout
  169. 3170 jsr esc
  170. 3190 lda #120 ; kleines x
  171. 3200 jsr print
  172. 3210 lda quality
  173. 3220 jsr print
  174. 3230 jsr esc
  175. 3250 lda #"!
  176. 3260 jsr [153]
  177. 3270 lda style
  178. 3280 jsr [153]
  179. 3290 jsr esc
  180. 3310 lda #":
  181. 3320 jsr print
  182. 3330 jsr nil
  183. 3360 jsr print
  184. 3380 jsr print
  185. 3390 jsr esc
  186. 3410 lda #"%
  187. 3420 jsr [153]
  188. 3430 lda #1:.byt $2c
  189. 3440 esc lda #27:.byt $2c
  190. 3445 nil lda #0
  191. 3450 [153] jmp chrout
  192. 3460 ;
  193. 3550 alfabet lda #$1f
  194. 3560 sta alpctr
  195. 3570 lda #13
  196. 3580 a1 jsr [153]
  197. 3590 inc alpctr
  198. 3600 lda alpctr
  199. 3610 cmp #$80
  200. 3620 bne a1
  201. 3630 lda #13
  202. 3640 jmp [153]
  203. 3660 ;
  204. 3700 lab0a9b ldx #[179]lqanf
  205. 3710 ldy #[177]lqanf
  206. 3720 stx text
  207. 3730 sty text[170]1
  208. 3740 jsr lab0b42
  209. 3750 jsr strout
  210. 3760 jsr loe[150]
  211. 3770 lab0aaf jsr [161]
  212. 3780 beq lab0aaf
  213. 3790 cmp #"j
  214. 3800 beq qu1
  215. 3810 cmp #"n
  216. 3820 bne lab0aaf
  217. 3830 jsr strout
  218. 3840 lda #0
  219. 3850 beq qu0
  220. 3870 ;
  221. 3880 qu1 ldx #$4b
  222. 3890 stx bild
  223. 3900 jsr strout
  224. 3910 lda #1
  225. 3920 qu0 sta quality
  226. 3930 ldx #[179]proanf
  227. 3940 ldy #[177]proanf
  228. 3950 stx text
  229. 3960 sty text[170]1
  230. 3970 ldx #$b8
  231. 3980 stx bild
  232. 3990 jsr strout
  233. 4000 jsr loe[150]
  234. 4010 lab0ae3 jsr [161]
  235. 4020 beq lab0ae3
  236. 4030 cmp #"j
  237. 4040 beq lab0afd
  238. 4050 cmp #"n
  239. 4060 beq lab0af3
  240. 4070 jmp lab0a9b
  241. 4080 ;
  242. 4090 lab0af3 jsr strout
  243. 4100 lda #0
  244. 4110 sta style
  245. 4120 beq lab0b08
  246. 4130 ;
  247. 4140 lab0afd ldx #$c5
  248. 4150 stx bild
  249. 4160 jsr strout
  250. 4170 lda #2
  251. 4180 sta style
  252. 4190 lab0b08 ldx #[179]kuanf
  253. 4200 ldy #[177]kuanf
  254. 4210 stx text
  255. 4220 sty text[170]1
  256. 4230 ldx #$30
  257. 4240 ldy #6
  258. 4250 stx bild
  259. 4260 sty bild[170]1
  260. 4270 jsr strout
  261. 4280 jsr loe[150]
  262. 4290 lab0b1e jsr [161]
  263. 4300 beq lab0b1e
  264. 4310 cmp #"j
  265. 4320 beq lab0b34
  266. 4330 cmp #"n
  267. 4340 beq lab0b2e
  268. 4350 jmp lab0a9b
  269. 4360 ;
  270. 4370 lab0b2e jsr strout
  271. 4380 jmp lab0b41
  272. 4390 ;
  273. 4400 lab0b34 ldx #$37
  274. 4410 stx bild
  275. 4420 jsr strout
  276. 4430 lda style
  277. 4440 ora #$40
  278. 4450 sta style
  279. 4460 lab0b41 rts
  280. 4470 ;
  281. 4480 lab0b42 ldx #$40
  282. 4490 ldy #5
  283. 4500 stx bild
  284. 4510 sty bild[170]1
  285. 4520 rts
  286. 4530 ;
  287. 4540 loe[150] ldx #[179]loeanf
  288. 4550 ldy #[177]loeanf
  289. 4560 stx text
  290. 4570 sty text[170]1
  291. 4580 rts
  292. 4590 ;
  293. 4600 f[145]t .[198] "><                ":brk
  294. 4650 titel .[198] "loadpokezeichensatzlader dl 900/wiesemann
  295. 4660 .byt 13:.asc "verbessert von n. heusler, 4.92
  296. 4662 .byt 13:.[198] "drucker auf epson-emul.wait schalten!
  297. 4664 .byt 13:.asc "puffer[146] im drucker ausreichend waehlen!
  298. 4666 .byt 13:.[198] "(maximal 8 kilobyte im hardware-menue)":.byt 13,0
  299. 4720 loeanf .[198] "                  ":brk
  300. 4730 .byt $20,$20,$20,$20,$00
  301. 4740 lqanf .[198] "lq-schrift (j/n)":brk
  302. 4750 proanf .[198] "proportional (j/n)":brk
  303. 4780 kuanf .[198] "kursiv (j/n)":brk
  304. 4800 [138]1 .[198] "datei wird geladen":brk
  305. 4802 [138]2 .[198] "zeichensatz wird zum drucker gesendet":brk
  306. 5000 buf [178][172]
  307.